object frmConsultaItens: TfrmConsultaItens
  Left = 344
  Top = 172
  Width = 800
  Height = 434
  Caption = 'Selecionar Item da Sa'#237'da'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 17
    Width = 792
    Height = 225
    Align = alTop
    DataSource = dsItensSaida
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'PRODUTO_IDF'
        Title.Caption = 'IDF'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SAIDA_SEQ'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRODUTO_DESC'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QTD_ARMA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QTD_ENTREGA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ARMACAO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ENTREGA'
        Visible = True
      end>
  end
  object pnlSaidaBottom: TPanel
    Left = 0
    Top = 359
    Width = 792
    Height = 41
    Align = alBottom
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 635
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 710
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 1
      Kind = bkCancel
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 242
    Width = 792
    Height = 117
    Align = alClient
    Caption = 'Dados da Arma'#231#227'o/Entrega'
    TabOrder = 2
    object Label2: TLabel
      Left = 8
      Top = 20
      Width = 40
      Height = 13
      Caption = 'Produto:'
    end
    object DBText1: TDBText
      Left = 8
      Top = 40
      Width = 65
      Height = 17
      DataField = 'PRODUTO_DESC'
      DataSource = dsItensSaida
    end
    object Label7: TLabel
      Left = 8
      Top = 68
      Width = 52
      Height = 13
      Caption = 'ENTREGA'
      FocusControl = DBEditEntregas
    end
    object Label8: TLabel
      Left = 160
      Top = 68
      Width = 53
      Height = 13
      Caption = 'ARMACAO'
      FocusControl = DBEditArmacoes
    end
    object Label5: TLabel
      Left = 266
      Top = 20
      Width = 166
      Height = 13
      Caption = 'Quantidade p/ Arma'#231#227'o dispon'#237'vel'
    end
    object Label6: TLabel
      Left = 450
      Top = 20
      Width = 161
      Height = 13
      Caption = 'Quantidade p/ Entrega dispon'#237'vel'
    end
    object DBText3: TDBText
      Left = 450
      Top = 40
      Width = 65
      Height = 17
      DataField = 'ENTREGA'
      DataSource = dsItensSaida
    end
    object DBText2: TDBText
      Left = 266
      Top = 40
      Width = 65
      Height = 17
      DataField = 'ARMACAO'
      DataSource = dsItensSaida
    end
    object DBEditEntregas: TDBEdit
      Left = 8
      Top = 84
      Width = 134
      Height = 21
      DataField = 'EntregaSelec'
      DataSource = dsItensSaida
      TabOrder = 0
    end
    object DBEditArmacoes: TDBEdit
      Left = 160
      Top = 84
      Width = 134
      Height = 21
      DataField = 'ArmacaoSelec'
      DataSource = dsItensSaida
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 17
    Align = alTop
    Caption = 'Itens Dispon'#237'veis'
    TabOrder = 3
  end
  object dsItensSaida: TDataSource
    AutoEdit = False
    DataSet = CDS_CONSULTA_ITENS
    Left = 352
    Top = 160
  end
  object ZItensSaida: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      
        'SELECT p.PRODUTO_IDF, p.SAIDA_SEQ, p.PRODUTO_DESC, p.QUANTIDADE ' +
        'QTD_ARMA, q.QUANTIDADE QTD_ENTREGA,'
      
        'p.QUANTIDADE_SELECIONADA ARMACAO, q.QUANTIDADE_SELECIONADA ENTRE' +
        'GA'
      'FROM PROC_ITENS_PARA_ARMAR(:SAIDA) p inner join'
      
        'PROC_ITENS_PARA_ENTREGAR(:SAIDA) q on p.PRODUTO_IDF = q.PRODUTO_' +
        'IDF')
    Params = <
      item
        DataType = ftInteger
        Name = 'SAIDA'
        ParamType = ptUnknown
      end>
    Left = 96
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SAIDA'
        ParamType = ptUnknown
      end>
    object ZItensSaidaPRODUTO_IDF: TIntegerField
      FieldName = 'PRODUTO_IDF'
      ReadOnly = True
    end
    object ZItensSaidaSAIDA_SEQ: TSmallintField
      FieldName = 'SAIDA_SEQ'
      ReadOnly = True
    end
    object ZItensSaidaPRODUTO_DESC: TStringField
      FieldName = 'PRODUTO_DESC'
      ReadOnly = True
      Size = 40
    end
    object ZItensSaidaQTD_ARMA: TFloatField
      FieldName = 'QTD_ARMA'
      ReadOnly = True
    end
    object ZItensSaidaQTD_ENTREGA: TFloatField
      FieldName = 'QTD_ENTREGA'
      ReadOnly = True
    end
    object ZItensSaidaARMACAO: TFloatField
      FieldName = 'ARMACAO'
      ReadOnly = True
    end
    object ZItensSaidaENTREGA: TFloatField
      FieldName = 'ENTREGA'
      ReadOnly = True
    end
  end
  object dsp_consulta: TDataSetProvider
    DataSet = ZItensSaida
    Left = 536
    Top = 152
  end
  object CDS_CONSULTA_ITENS: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'SAIDA'
        ParamType = ptUnknown
      end>
    ProviderName = 'dsp_consulta'
    AfterOpen = CDS_CONSULTA_ITENSAfterOpen
    BeforeEdit = CDS_CONSULTA_ITENSBeforeEdit
    Left = 200
    Top = 168
    object CDS_CONSULTA_ITENSPRODUTO_IDF: TIntegerField
      DisplayLabel = 'idf'
      FieldName = 'PRODUTO_IDF'
      ReadOnly = True
    end
    object CDS_CONSULTA_ITENSSAIDA_SEQ: TSmallintField
      DisplayLabel = 'Seq'
      FieldName = 'SAIDA_SEQ'
      ReadOnly = True
    end
    object CDS_CONSULTA_ITENSPRODUTO_DESC: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'PRODUTO_DESC'
      ReadOnly = True
      Size = 40
    end
    object CDS_CONSULTA_ITENSQTD_ARMA: TFloatField
      DisplayLabel = 'Quantidade p/ Arma'#231#227'o'
      FieldName = 'QTD_ARMA'
      ReadOnly = True
    end
    object CDS_CONSULTA_ITENSQTD_ENTREGA: TFloatField
      DisplayLabel = 'Quantidade p/ Entrega'
      FieldName = 'QTD_ENTREGA'
      ReadOnly = True
    end
    object CDS_CONSULTA_ITENSARMACAO: TFloatField
      FieldName = 'ARMACAO'
      ReadOnly = True
    end
    object CDS_CONSULTA_ITENSENTREGA: TFloatField
      FieldName = 'ENTREGA'
      ReadOnly = True
    end
    object CDS_CONSULTA_ITENSArmacaoSelec: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'ArmacaoSelec'
      OnValidate = CDS_CONSULTA_ITENSArmacaoSelecValidate
    end
    object CDS_CONSULTA_ITENSEntregaSelec: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'EntregaSelec'
      OnValidate = CDS_CONSULTA_ITENSEntregaSelecValidate
    end
  end
end
